home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1989 September & October / rerun-1989-09-10.d64 / run's checksum (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  21 lines
  1. 10 rem run's checksum 64/128 - bob kodadek
  2. 20 mo=128:sa=3328:if peek(40960)then mo=64:sa=49152
  3. 30 for i=0to169:readb:ck=ck+b:poke sa+i,b:next
  4. 40 ifck<>20651 thenprint"data error!":end
  5. 50 pokesa+110,240:pokesa+111,38:pokesa+140,234
  6. 60 printchr$(147)str$(mo)" run checksum":print
  7. 70 print"to toggle on or off, sys"sa:if mo=128 then 100
  8. 80 pokesa+13,124:pokesa+15,165:pokesa+25,124:pokesa+26,165
  9. 90 pokesa+39,20:pokesa+41,21:pokesa+123,205:pokesa+124,189
  10. 100 pokesa+4,int(sa/256):sys sa:new
  11. 110 data 120,162,24,160,13,173,4,3,201,24,208,4,162,13,160,67,142,4,3,140
  12. 120 data 5,3,88,96,32,13,67,152,72,169,0,141,0,255,133,176,133,180,166,22
  13. 130 data 164,23,134,167,132,168,170,189,0,2,240,58,201,48,144,7,201,58,176
  14. 140 data 3,232,208,240,189,0,2,240,42,201,32,208,4,164,180,240,31,201,34
  15. 150 data 208,6,165,180,73,1,133,180,230,176,164,176,165,167,24,125,0,2,133
  16. 160 data 167,165,168,105,0,133,168,136,208,239,232,208,209,169,42,32,210
  17. 170 data 255,165,167,69,168,170,169,0,32,50,142,169,32,32,210,255,32,210
  18. 180 data 255,169,13,32,210,255,104,168,96,104,170,24,32,240,255,104,168
  19. 190 data 96,56,32,240,255,138,72,152,72,24,162,0,160,0,32,240,255,169
  20. 200 data 42,208,198
  21.